home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / makehelp.arc / MAKEHELP.SUB < prev   
Text File  |  1987-02-02  |  1KB  |  14 lines
  1. 24993 '     * HELP SCREEN SUBROUTINE - DISPLAYS CONTEXT SENSITIVE HELP SCREENS                CREATED WITH "MAKEHELP.EXE" UTILITY
  2. 24994 '     * SOMEWHERE AT THE START OF THE PROGRAM YOU MUST ADD THE FOLLOWING                SETUP INSTRUCTIONS:
  3. 24995 '           KEY (1) ON:ON KEY (1) GOSUB 25000:MONITOR$="M"
  4. 24996 '   OR ...  KEY (1) ON:ON KEY (1) GOSUB 25000:MONITOR$="C"
  5. 24997 '     * THE ABOVE INSTRUCTIONS WILL CAUSE A CALL TO THE HELP SUBROUTINE                 WHENEVER THE F1 FUNCTION KEY IS DEPRESSED                                       MONITOR#="M" FOR MONOCHROME I/F OR "C" FOR COLOR GRAPHICS I/F
  6. 24998 '     * IT IS IMPORTANT TO NOTE THAT PROGRAMMER MUST SET THE "HFLAG"                    VARIABLE TO THE APPROPRIATE HELP SCREEN NUMBER AS THE PROGRAM                   PROGRESSES TO FACILITATE DISPLAY OF THE PROPER HELP SCREEN
  7. 24999 '     * FOR A MORE DETAILED EXPLANATION AND EXAMPLES SEE MAKEHELP.DOC     ______________________ Software Consulting Services, Inc. ______________________
  8. 25000 ON ERROR GOTO 25050:FSHELP$="HELP."+RIGHT$("000"+RIGHT$(STR$(HFLAG),LEN(STR$(HFLAG))-1),3):SOUND 6000,1
  9. 25010 IF MONITOR$="M" THEN DEF SEG=&HB000 ELSE IF MONITOR$="C" THEN DEF SEG=&HB800
  10. 25020 BSAVE "TEMP.SCR",1120,1760:SOUND 6000,1:BLOAD FSHELP$,1120:SOUND 6000,1
  11. 25030 ZZZ$=INKEY$:IF ZZZ$="" THEN 25030
  12. 25040 SOUND 6000,1:BLOAD "TEMP.SCR",1120:SOUND 6000,1:ZZZ$=INKEY$:RETURN
  13. 25050 IF ERR=53 THEN HFLAG=0:RESUME 25000 ELSE ON ERROR GOTO 0
  14.